home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / FLOATPRI.FAS < prev    next >
Text File  |  1994-02-05  |  4KB  |  50 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DECODE-FLOAT-DECIMAL
  4.    REMOVE-OLD-DEFINITIONS
  5.    #Y(DECODE-FLOAT-DECIMAL
  6.       #634Y(01 00 00 00 00 02 A8 31 B6 41 03 A9 23 00 80 C3 A9 6E C6 AA D7 6E C4 92 00 93 01 D5 A8
  7.             6E C6 AC 89 FE 09 AA D7 6E C4 7D 8A 01 C2 F6 93 06 A7 6E 91 AD D7 6E C4 6F 01 2E 01 06
  8.             8E 06 80 9D AE 8B 86 81 6A AE D9 8C 01 30 81 A2 AE E6 6F 02 35 D2 14 7D A6 02 DB AA 6F
  9.             00 34 7D 8D 03 14 6E C6 AF 6F 00 34 8D 01 2F 08 82 02 AA DB 7E 02 35 03 B0 AB 6F 02 35
  10.             AF B1 6F 01 34 6E C4 7D 89 01 B1 AB 6F 02 35 6E 8A AF 7D C4 00 01 02 AA DB 6E A7 AA DB
  11.             6E A6 A8 A8 8C 01 2F 81 5B 16 02 AA AA 88 FE 81 A0 8E 08 81 A6 B0 8B 86 81 BA B4 8E 02
  12.             81 C3 9E 14 6F 02 35 B1 31 89 14 6E C4 6E 89 E9 31 C4 F6 14 6E 83 A7 6E 41 A8 A8 A9 B0
  13.             6F 02 33 BB 3F 04 19 16 D6 D7 D5 D5 3F 04 19 05 D8 1A 23 AF DA 6F 02 35 C6 1A 31 AF D9
  14.             8C 01 30 72 AF DC 6F 02 35 C8 1A 23 AF DF 6F 02 35 CB 1A 1B A7 D7 7D C4 00 B4 A8 7E 02
  15.             33 06 AF 8A 86 5B AF DE 8C 01 2F 63 AF E1 6F 02 35 CD 14 6E A6 7D 8A 03 E3 AE B1 6E C6
  16.             6F 03 33 B0 A8 6E D5 6F 02 35 AC A9 6E D6 6F 02 35 6F 01 34 7D 8C 00 A7 AF 6E B1 37 01
  17.             7D A9 06 F6 DB AF 6E C4 8D 01 30 07 AC DB 7D A6 05 81 03 92 05 B2 6F 02 35 6E 8A AE B2
  18.             6F 02 33 6F 00 34 6E C4 7D 89 02 93 05 B3 6F 02 35 AE 6F 00 34 7D C4 01 93 05 B2 6F 02
  19.             35 6E 8A AE B2 6F 02 33 6F 00 34 6E C4 6E 89 AA 8C 01 2D FF 6E A8 93 06 B4 6F 02 35 AF
  20.             6F 00 34 6E C4 8C 01 2D FF 5C 16 01 1A FE E4 AE DF 6F 02 35 CB 1A 0C AE DE 8C 01 2F 72
  21.             AE E4 6F 02 35 D0 14 7D A6 02 DB AA 7D 8D 03 D7 AF 6E C4 AB 8D 01 2D 07 82 02 AA DB 7D
  22.             A6 03 B0 AF 6E C4 AB B1 6E C4 6E A6 7D 89 01 B1 AF 6E C4 6E 8A AB 7D A6 00 1A FE 9D AE
  23.             DA 6F 02 35 C6 1A FE 5B 99 FB 98 FA 81 06 7A 03 16 02 DB AA DB 7D A6 01 14 6F 02 35 AB
  24.             8D 01 30 FE 8D 81 04 A7 6E 83 A7 6E 41 A7 A7 AF 6F 02 33 1A 04 98 F8 16 01 93 01 AB A8
  25.             6D 33 23 13 73 16 01 A8 AA 8D 01 2D 06 AA D5 AA 7C 4E 03 AA A9 A9 BD 3F 04 19 18 9B 1A
  26.             FE 7A A7 DB 31 A6 1A 09 AD B5 6F 02 35 8E 02 72 98 F6 D7 B0 32 01 34 1A FE 5A DB AE 32
  27.             02 35 1A 08 B4 B1 6E C4 8E 02 72 9E 14 31 A9 1A FE 4D AD DB 31 A6 1A FE 37
  28.            )
  29.       0. "0" 1. 16. -970. 3. 10. 21306. 70777. 22000. 28. 93. 12655. 42039. 9. 4004. 13301. 643.
  30.       2136. #\0 -1.
  31.   )  )
  32. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) WRITE-FLOAT
  33.    REMOVE-OLD-DEFINITIONS
  34.    #Y(WRITE-FLOAT
  35.       #230Y(02 00 00 00 00 03 A8 8B 0C 2F A8 2E 01 41 04 A7 24 02 04 D8 AE 30 88 D9 A9 DA 6F 02 2F
  36.             8F 00 04 A9 8B 85 19 8E 00 37 C9 14 A7 AC 8C 01 2D 32 AC B0 37 02 30 89 AB 1A 80 42 D5
  37.             A9 5E 01 DB AF 30 88 DC AF 30 88 A9 1A 06 DB B0 30 88 81 00 A7 24 08 76 16 01 AB AF 37
  38.             02 30 89 C8 F8 1A 34 9A 1A 47 AC B0 37 01 AA 30 89 DC B0 30 88 AC B0 A9 37 01 30 89 1A
  39.             15 DB B1 30 88 81 00 A7 A9 89 FE 75 16 01 DC B0 30 88 DB B0 30 88 AA A8 7E 01 34 03 16
  40.             01 0E 0A 25 0B 26 AD 8B 0D 22 1A 0A AD 8B 0E 1C 1A 04 AD 8B 0F 16 CC 1A 24 CD 1A 21 CE
  41.             1A 1E CF 1A 1B D0 1A 18 00 19 09 AD 8A 10 6A AD 8A 0D 69 AD 8A 0E 68 AD 8A 0F 67 AD 8A
  42.             10 66 00 14 8F 01 04 A7 23 0C 60 A7 B0 30 88 AA 37 0B D1 FA 79 05 BB 30 80 19 09
  43.            )
  44.       "argument is not a float: ~S" DECODE-FLOAT-DECIMAL -1. #\- -2. 7. #\0 #\. 0. 1.
  45.       *READ-DEFAULT-FLOAT-FORMAT*
  46.       #S(HASH-TABLE EQ (LONG-FLOAT . 35.) (DOUBLE-FLOAT . 13.) (SINGLE-FLOAT . 7.)
  47.          (SHORT-FLOAT . 1.)
  48.         )
  49.       #\E #\s #\f #\d #\L 10.
  50.   )  )